home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
try_qb
/
entab.bas
(
.txt
)
< prev
next >
Wrap
QuickBASIC Tokenized Source
|
1989-12-04
|
3KB
|
37 lines
@ SetTabPos
StripCommand
CLine
ThisIsATab
Column
MAXLINE#
TABSPACE
TabStops
LastColumn
CurrentColumn
CommandLine
InFileName
OutFileName
SpacePos
ENTAB.BAS
Replace runs of spaces in a file with tabs.
Set the tab positions (uses the global array TabStops).
Replace a run of blanks with a tab when you reach a tab
column. CurrentColumn is the current column read.
LastColumn is the last column that was printed.
Go to a tab column if we have a tab and thise
is not a tab column.f
Print out any blanks left over.
Print the non-blank character..
Reset the column position if this is the end of a line.
SetTabPos
-SUB SetTabPos
Set the tab positions in the array TabStops.
StripCommand
-SUB StripCommand
File to entab: "
Store entabbed file in:
Store entabbed file in:
ThisIsATab
-FUNCTION ThisIsATab
Answer the question, "Is this a tab position?"